Eagles Nest BBS 8

home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 8 / Eagles_Nest_Mac_Collection_Disc_8.TOAST / Developer Environments / AAISProlog / Examples / string_expressions < prev
MacBinary | 1992-04-06 | 2.4 KB | [TEXT/AIFC]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Mon Apr 6 22:15:12 1992, modified Mon Apr 6 22:15:12 1992, creator 'AIFC', type ASCII, 1884 bytes "string_expressions" , at 0x7dc 380 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[AIFC]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 12 73 74 72 69 6e 67 | 5f 65 78 70 72 65 73 73 |..string|_express|
|00000010| 69 6f 6e 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |ions....|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 49 46 | 43 01 00 00 00 00 00 00 |.TEXTAIF|C.......|
|00000050| 00 00 00 00 00 07 5c 00 | 00 01 7c a6 06 b6 30 a6 |......\.|..|...0.|
|00000060| 06 b6 30 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..0.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ad 56 00 00 |........|.....V..|
|00000080| 3a 2d 20 70 72 69 6e 74 | 73 74 72 69 6e 67 28 27 |:- print|string('|
|00000090| 0d 2f 2a 0d 20 2a 20 53 | 74 72 69 6e 67 5f 45 78 |./*. * S|tring_Ex|
|000000a0| 70 72 65 73 73 69 6f 6e | 73 3a 20 47 72 61 6d 6d |pression|s: Gramm|
|000000b0| 61 72 20 52 75 6c 65 20 | 45 78 61 6d 70 6c 65 2e |ar Rule |Example.|
|000000c0| 0d 20 2a 09 45 78 61 6d | 70 6c 65 20 66 72 6f 6d |. *.Exam|ple from|
|000000d0| 20 41 41 49 53 20 50 72 | 6f 6c 6f 67 20 4d 61 6e | AAIS Pr|olog Man|
|000000e0| 75 61 6c 2e 0d 20 2a 09 | 50 61 72 73 65 73 20 61 |ual.. *.|Parses a|
|000000f0| 6e 64 20 65 76 61 6c 75 | 61 74 65 73 20 65 78 70 |nd evalu|ates exp|
|00000100| 72 65 73 73 69 6f 6e 73 | 20 69 6e 20 73 74 72 69 |ressions| in stri|
|00000110| 6e 67 20 66 6f 72 6d 61 | 74 2e 0d 20 2a 0d 20 2a |ng forma|t.. *. *|
|00000120| 20 43 6f 70 79 72 69 67 | 68 74 2c 20 a9 20 31 39 | Copyrig|ht, . 19|
|00000130| 38 38 2c 20 31 39 39 32 | 20 41 64 76 61 6e 63 65 |88, 1992| Advance|
|00000140| 64 20 41 2e 20 49 2e 20 | 53 79 73 74 65 6d 73 2c |d A. I. |Systems,|
|00000150| 20 49 6e 63 2e 0d 20 2a | 20 41 6c 6c 20 72 69 67 | Inc.. *| All rig|
|00000160| 68 74 73 20 72 65 73 65 | 72 76 65 64 2e 0d 20 2a |hts rese|rved.. *|
|00000170| 20 54 68 69 73 20 66 69 | 6c 65 20 6d 61 79 20 6e | This fi|le may n|
|00000180| 6f 74 20 62 65 20 63 6f | 70 69 65 64 20 6f 72 20 |ot be co|pied or |
|00000190| 64 69 73 74 72 69 62 75 | 74 65 64 20 77 69 74 68 |distribu|ted with|
|000001a0| 6f 75 74 20 74 68 65 20 | 0d 20 2a 20 77 72 69 74 |out the |. * writ|
|000001b0| 74 65 6e 20 70 65 72 6d | 69 73 73 69 6f 6e 20 6f |ten perm|ission o|
|000001c0| 66 20 41 64 76 61 6e 63 | 65 64 20 41 2e 20 49 2e |f Advanc|ed A. I.|
|000001d0| 20 53 79 73 74 65 6d 73 | 2c 20 49 6e 63 2e 0d 20 | Systems|, Inc.. |
|000001e0| 2a 0d 20 2a 20 53 65 65 | 20 70 61 67 65 73 20 31 |*. * See| pages 1|
|000001f0| 33 38 2d 31 34 30 20 6f | 66 20 74 68 65 20 41 41 |38-140 o|f the AA|
|00000200| 49 53 20 50 72 6f 6c 6f | 67 20 56 65 72 73 69 6f |IS Prolo|g Versio|
|00000210| 6e 20 33 2e 30 20 4d 61 | 6e 75 61 6c 2c 20 56 6f |n 3.0 Ma|nual, Vo|
|00000220| 6c 75 6d 65 20 31 0d 20 | 2a 20 6f 72 20 73 65 65 |lume 1. |* or see|
|00000230| 20 70 61 67 65 73 20 31 | 32 32 2d 31 32 34 20 6f | pages 1|22-124 o|
|00000240| 66 20 74 68 65 20 41 41 | 49 53 20 50 72 6f 6c 6f |f the AA|IS Prolo|
|00000250| 67 20 4d 2d 32 2e 30 20 | 52 65 66 65 72 65 6e 63 |g M-2.0 |Referenc|
|00000260| 65 20 4d 61 6e 75 61 6c | 0d 20 2a 09 66 6f 72 20 |e Manual|. *.for |
|00000270| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 20 6f 6e 20 68 |informat|ion on h|
|00000280| 6f 77 20 74 6f 20 75 73 | 65 20 74 68 69 73 20 70 |ow to us|e this p|
|00000290| 72 6f 67 72 61 6d 2e 0d | a5 a5 a5 a5 a5 a5 a5 a5 |rogram..|........|
|000002a0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|000002b0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|000002c0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|000002d0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|000002e0| a5 0d 53 6f 6d 65 20 73 | 69 6d 70 6c 65 20 74 65 |..Some s|imple te|
|000002f0| 73 74 73 20 6f 66 20 74 | 68 69 73 20 73 74 72 69 |sts of t|his stri|
|00000300| 6e 67 20 65 78 70 72 65 | 73 73 69 6f 6e 20 67 72 |ng expre|ssion gr|
|00000310| 61 6d 6d 61 72 3a 0d 4e | 6f 74 65 20 74 68 61 74 |ammar:.N|ote that|
|00000320| 20 74 68 65 20 73 74 72 | 69 6e 67 73 20 6d 61 79 | the str|ings may|
|00000330| 20 6e 6f 74 20 63 6f 6e | 74 61 69 6e 20 73 70 61 | not con|tain spa|
|00000340| 63 65 73 20 6f 72 20 74 | 61 62 73 2e 0d 0d 3f 2d |ces or t|abs...?-|
|00000350| 20 65 78 70 72 65 73 73 | 69 6f 6e 28 56 41 4c 55 | express|ion(VALU|
|00000360| 45 2c 20 22 32 2d 33 2a | 34 2d 35 22 2c 20 5b 5d |E, "2-3*|4-5", []|
|00000370| 29 2e 0d 3f 2d 20 65 78 | 70 72 65 73 73 69 6f 6e |)..?- ex|pression|
|00000380| 28 56 41 4c 55 45 2c 20 | 22 32 2a 34 2f 35 2d 33 |(VALUE, |"2*4/5-3|
|00000390| 22 2c 20 5b 5d 29 2e 0d | a5 a5 a5 a5 a5 a5 a5 a5 |", [])..|........|
|000003a0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|000003b0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|000003c0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|000003d0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|000003e0| a5 0d 20 2a 2f 0d 27 29 | 2e 0d 3a 2d 20 61 61 69 |.. */.')|..:- aai|
|000003f0| 73 5f 6d 6f 64 65 2e 0d | 2f 2a 0d 20 2a 20 54 68 |s_mode..|/*. * Th|
|00000400| 65 20 6f 75 74 70 75 74 | 20 66 72 6f 6d 20 74 68 |e output| from th|
|00000410| 65 20 61 62 6f 76 65 20 | 74 65 73 74 73 3a 0d 20 |e above |tests:. |
|00000420| 2a 0d 3f 2d 20 65 78 70 | 72 65 73 73 69 6f 6e 28 |*.?- exp|ression(|
|00000430| 56 41 4c 55 45 2c 20 22 | 32 2d 33 2a 34 2d 35 22 |VALUE, "|2-3*4-5"|
|00000440| 2c 20 5b 5d 29 2e 0d 20 | 20 20 20 56 41 4c 55 45 |, []).. |   VALUE|
|00000450| 20 3d 20 2d 31 35 20 3b | 0d 3f 2d 20 65 78 70 72 | = -15 ;|.?- expr|
|00000460| 65 73 73 69 6f 6e 28 56 | 41 4c 55 45 2c 20 22 32 |ession(V|ALUE, "2|
|00000470| 2a 34 2f 35 2d 33 22 2c | 20 5b 5d 29 2e 0d 20 20 |*4/5-3",| [])..  |
|00000480| 20 20 56 41 4c 55 45 20 | 3d 20 2d 31 2e 34 20 3b |  VALUE |= -1.4 ;|
|00000490| 0d 20 2a 2f 0d 0d 65 78 | 70 72 65 73 73 69 6f 6e |. */..ex|pression|
|000004a0| 28 52 45 53 55 4c 54 29 | 20 2d 2d 3e 20 74 65 72 |(RESULT)| --> ter|
|000004b0| 6d 28 56 31 29 2c 70 6c | 75 73 5f 6d 69 6e 75 73 |m(V1),pl|us_minus|
|000004c0| 5f 65 78 70 72 65 73 73 | 69 6f 6e 28 56 31 2c 52 |_express|ion(V1,R|
|000004d0| 45 53 55 4c 54 29 2e 0d | 0d 70 6c 75 73 5f 6d 69 |ESULT)..|.plus_mi|
|000004e0| 6e 75 73 5f 65 78 70 72 | 65 73 73 69 6f 6e 28 56 |nus_expr|ession(V|
|000004f0| 31 2c 52 45 53 55 4c 54 | 29 20 2d 2d 3e 20 0d 09 |1,RESULT|) --> ..|
|00000500| 5b 30 27 2b 5d 2c 21 2c | 74 65 72 6d 28 56 32 29 |[0'+],!,|term(V2)|
|00000510| 2c 0d 09 7b 56 33 20 69 | 73 20 56 31 20 2b 20 56 |,..{V3 i|s V1 + V|
|00000520| 32 7d 2c 0d 09 70 6c 75 | 73 5f 6d 69 6e 75 73 5f |2},..plu|s_minus_|
|00000530| 65 78 70 72 65 73 73 69 | 6f 6e 28 56 33 2c 52 45 |expressi|on(V3,RE|
|00000540| 53 55 4c 54 29 2e 0d 70 | 6c 75 73 5f 6d 69 6e 75 |SULT)..p|lus_minu|
|00000550| 73 5f 65 78 70 72 65 73 | 73 69 6f 6e 28 56 31 2c |s_expres|sion(V1,|
|00000560| 52 45 53 55 4c 54 29 20 | 2d 2d 3e 0d 09 5b 30 27 |RESULT) |-->..[0'|
|00000570| 2d 5d 2c 21 2c 74 65 72 | 6d 28 56 32 29 2c 0d 09 |-],!,ter|m(V2),..|
|00000580| 7b 56 33 20 69 73 20 56 | 31 20 2d 20 56 32 7d 2c |{V3 is V|1 - V2},|
|00000590| 0d 09 70 6c 75 73 5f 6d | 69 6e 75 73 5f 65 78 70 |..plus_m|inus_exp|
|000005a0| 72 65 73 73 69 6f 6e 28 | 56 33 2c 52 45 53 55 4c |ression(|V3,RESUL|
|000005b0| 54 29 2e 0d 70 6c 75 73 | 5f 6d 69 6e 75 73 5f 65 |T)..plus|_minus_e|
|000005c0| 78 70 72 65 73 73 69 6f | 6e 28 56 31 2c 56 31 29 |xpressio|n(V1,V1)|
|000005d0| 20 2d 2d 3e 20 5b 5d 2e | 0d 0d 74 65 72 6d 28 52 | --> [].|..term(R|
|000005e0| 45 53 55 4c 54 29 20 2d | 2d 3e 20 66 61 63 74 6f |ESULT) -|-> facto|
|000005f0| 72 28 56 31 29 2c 74 69 | 6d 65 73 5f 64 69 76 69 |r(V1),ti|mes_divi|
|00000600| 64 65 5f 74 65 72 6d 28 | 56 31 2c 52 45 53 55 4c |de_term(|V1,RESUL|
|00000610| 54 29 2e 0d 0d 74 69 6d | 65 73 5f 64 69 76 69 64 |T)...tim|es_divid|
|00000620| 65 5f 74 65 72 6d 28 56 | 31 2c 52 45 53 55 4c 54 |e_term(V|1,RESULT|
|00000630| 29 20 2d 2d 3e 20 0d 09 | 5b 30 27 2a 5d 2c 21 2c |) --> ..|[0'*],!,|
|00000640| 74 65 72 6d 28 56 32 29 | 2c 0d 09 7b 56 33 20 69 |term(V2)|,..{V3 i|
|00000650| 73 20 56 31 20 2a 20 56 | 32 7d 2c 0d 09 74 69 6d |s V1 * V|2},..tim|
|00000660| 65 73 5f 64 69 76 69 64 | 65 5f 74 65 72 6d 28 56 |es_divid|e_term(V|
|00000670| 33 2c 52 45 53 55 4c 54 | 29 2e 0d 74 69 6d 65 73 |3,RESULT|)..times|
|00000680| 5f 64 69 76 69 64 65 5f | 74 65 72 6d 28 56 31 2c |_divide_|term(V1,|
|00000690| 52 45 53 55 4c 54 29 20 | 2d 2d 3e 0d 09 5b 30 27 |RESULT) |-->..[0'|
|000006a0| 2f 5d 2c 21 2c 74 65 72 | 6d 28 56 32 29 2c 0d 09 |/],!,ter|m(V2),..|
|000006b0| 7b 56 33 20 69 73 20 56 | 31 20 2f 20 56 32 7d 2c |{V3 is V|1 / V2},|
|000006c0| 0d 09 74 69 6d 65 73 5f | 64 69 76 69 64 65 5f 74 |..times_|divide_t|
|000006d0| 65 72 6d 28 56 33 2c 52 | 45 53 55 4c 54 29 2e 0d |erm(V3,R|ESULT)..|
|000006e0| 74 69 6d 65 73 5f 64 69 | 76 69 64 65 5f 74 65 72 |times_di|vide_ter|
|000006f0| 6d 28 56 31 2c 56 31 29 | 20 2d 2d 3e 20 5b 5d 2e |m(V1,V1)| --> [].|
|00000700| 0d 0d 66 61 63 74 6f 72 | 28 52 45 53 55 4c 54 29 |..factor|(RESULT)|
|00000710| 20 2d 2d 3e 20 6e 75 6d | 62 65 72 28 56 31 29 2c | --> num|ber(V1),|
|00000720| 72 61 69 73 65 5f 74 6f | 5f 70 6f 77 65 72 28 56 |raise_to|_power(V|
|00000730| 31 2c 52 45 53 55 4c 54 | 29 2e 0d 0d 72 61 69 73 |1,RESULT|)...rais|
|00000740| 65 5f 74 6f 5f 70 6f 77 | 65 72 28 56 31 2c 52 45 |e_to_pow|er(V1,RE|
|00000750| 53 55 4c 54 29 20 2d 2d | 3e 20 0d 09 5b 30 27 5e |SULT) --|> ..[0'^|
|00000760| 5d 2c 21 2c 66 61 63 74 | 6f 72 28 56 32 29 2c 7b |],!,fact|or(V2),{|
|00000770| 52 45 53 55 4c 54 20 69 | 73 20 70 6f 77 28 56 31 |RESULT i|s pow(V1|
|00000780| 2c 56 32 29 7d 2e 0d 72 | 61 69 73 65 5f 74 6f 5f |,V2)}..r|aise_to_|
|00000790| 70 6f 77 65 72 28 52 45 | 53 55 4c 54 2c 52 45 53 |power(RE|SULT,RES|
|000007a0| 55 4c 54 29 20 2d 2d 3e | 20 5b 5d 2e 0d 0d 6e 75 |ULT) -->| []...nu|
|000007b0| 6d 62 65 72 28 52 45 53 | 55 4c 54 29 20 2d 2d 3e |mber(RES|ULT) -->|
|000007c0| 20 5b 56 31 5d 2c 7b 52 | 45 53 55 4c 54 20 69 73 | [V1],{R|ESULT is|
|000007d0| 20 56 31 20 2d 20 30 27 | 30 7d 2e 0d 00 00 00 00 | V1 - 0'|0}......|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000800| 00 00 01 00 00 00 01 22 | 00 00 00 22 00 00 00 5a |......."|..."...Z|
|00000810| 43 6f 6e 73 09 09 09 09 | 2a 63 3b 0d 09 0d 09 69 |Cons....|*c;....i|
|00000820| 66 28 28 70 6d 6c 20 3d | 20 67 65 74 5f 63 75 72 |f((pml =| get_cur|
|00000830| 12 73 74 72 69 6e 67 5f | 65 78 70 72 65 73 73 69 |.string_|expressi|
|00000840| 6f 6e 73 6e 02 00 00 00 | 54 45 58 54 41 49 46 43 |onsn....|TEXTAIFC|
|00000850| 00 00 54 45 58 54 41 49 | 46 43 01 00 00 8c 00 c0 |..TEXTAI|FC......|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 a5 e3 ef ff 00 00 | 07 5c 00 00 01 7c 48 45 |........|.\...|HE|
|00000880| 5f 43 55 52 52 45 4e 54 | 5f 57 49 4e 44 4f 57 3b |_CURRENT|_WINDOW;|
|00000890| 0d 09 6d 68 20 3d 20 65 | 6d 2d 3e 73 79 73 74 65 |..mh = e|m->syste|
|000008a0| 6d 5f 6d 65 6e 75 3b 0d | 09 69 66 28 28 6f 62 6a |m_menu;.|.if((obj|
|000008b0| 20 3d 20 77 2d 3e 63 75 | 72 72 65 6e 74 5f 61 63 | = w->cu|rrent_ac|
|000008c0| 74 69 76 65 5f 6f 62 6a | 65 63 74 29 20 3d 3d 20 |tive_obj|ect) == |
|000008d0| 30 29 20 7b 0d 09 09 6e | 65 77 73 74 61 74 75 73 |0) {...n|ewstatus|
|000008e0| 20 3d 20 28 77 2d 3e 73 | 74 61 74 75 73 20 26 20 | = (w->s|tatus & |
|000008f0| 30 78 46 30 29 3b 0d 09 | 7d 20 65 6c 73 65 20 7b |0xF0);..|} else {|
|00000900| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 00 00 00 |.......M|onaco...|
|00000910| 00 08 00 46 00 14 01 76 | 01 f1 00 00 00 04 00 30 |...F...v|.......0|
|00000920| 00 08 00 00 01 00 00 00 | 01 22 00 00 00 22 00 00 |........|."..."..|
|00000930| 00 5a 00 21 54 ac 06 40 | 00 00 00 1c 00 5a 00 02 |.Z.!T..@|.....Z..|
|00000940| 45 46 4e 54 00 00 00 1a | 45 57 4e 44 00 00 00 26 |EFNT....|EWND...&|
|00000950| 45 54 41 42 00 00 00 32 | 03 eb ff ff 00 00 00 00 |ETAB...2|........|
|00000960| 00 21 5b f0 01 00 ff ff | 00 00 00 0e 00 21 5d 8c |.![.....|.....!].|
|00000970| 03 ec ff ff 00 00 00 1a | 00 2d 8d 1c 00 00 00 00 |........|.-......|
+--------+-------------------------+-------------------------+--------+--------+